
Uses
	Dos,crt;
    
Const
        MAX_PEDIDOS = 200;    
Type
    {$I TipoDeDatos.pas}
    
    {$I ManejoDeArchivos.pas}
    
    {$I ManejoPedidos.pas}

    {$I ManejoReparaciones.pas}

Procedure MostrarResultadosDeBusqueda();
Var 
    NuevoRepuesto,RepuestoTMP : Repuesto;
    Archivo : FileRepuestos;
    
Begin

    
        NuevoRepuesto.Codigo := 200;
        {
            NuevoRepuesto.Descripcion           :='Manguera de plastico 01';
            NuevoRepuesto.Cantidad              := 2;
        }
  
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        



        NuevoRepuesto.Codigo        :=  302; 	
        {            
        NuevoRepuesto.Descripcion   := 'Manguera de plastico 02';
        NuevoRepuesto.Cantidad      :=	60;
        }
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        


        NuevoRepuesto.Codigo        := 566;	
        {
        NuevoRepuesto.Descripcion   := 'Motor bobinado simple 1,4 HP';
        NuevoRepuesto.Cantidad      :=	0;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        


        NuevoRepuesto.Codigo        := 700;	
        {
        NuevoRepuesto.Descripcion   := 'Cable mallado doble 0,1';	
        NuevoRepuesto.Cantidad      := 15;
        }
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        

        NuevoRepuesto.Codigo        := 2040;	
        {
        NuevoRepuesto.Descripcion   := 'Resistencia 0,5 ohm';	
        NuevoRepuesto.Cantidad      := 10;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        

        NuevoRepuesto.Codigo        := 2041;	
        {
        NuevoRepuesto.Descripcion   := 'Resistencia 0,6 ohm';	
        NuevoRepuesto.Cantidad      := 2;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        

        NuevoRepuesto.Codigo        := 3042;	
        {
        NuevoRepuesto.Descripcion   := 'Carcasa de licuadora liliana';	
        NuevoRepuesto.Cantidad      := 2;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        


        NuevoRepuesto.Codigo        := 24000;	
        {
        NuevoRepuesto.Descripcion   := 'Led de color rojo 0,5';
        NuevoRepuesto.Cantidad      :=	2;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        

        NuevoRepuesto.Codigo        := 24400;
        
        {
        NuevoRepuesto.Descripcion   := 'Cargador Mulinex inalambrica';
        NuevoRepuesto.Cantidad      := 1;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        

        NuevoRepuesto.Codigo        := 32000;	
        {
        NuevoRepuesto.Descripcion   := 'Pantalla de Plasma 7 pulgadas';	
        NuevoRepuesto.Cantidad      := 0;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        
    
        NuevoRepuesto.Codigo        := 37010;	
        
        {
        NuevoRepuesto.Descripcion   := 'Filtro de aspiradora ultracom';	
        NuevoRepuesto.Cantidad      := 150;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        
    
        NuevoRepuesto.Codigo        := 50120;
        {
        NuevoRepuesto.Descripcion   := 'Bolita de Heladera Siam';	
        NuevoRepuesto.Cantidad      := 2;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        
    

        NuevoRepuesto.Codigo        := 52999;	
        
        {
        NuevoRepuesto.Descripcion   := 'Rueda de lavarropas 0,5';	
        NuevoRepuesto.Cantidad      := 50;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        


        NuevoRepuesto.Codigo        := 55677;
        
        {
        NuevoRepuesto.Descripcion   := 'Antena Televisor philips a3a10';	
        NuevoRepuesto.Cantidad      := 50;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        
    

        NuevoRepuesto.Codigo        := 55678;
        
        {	
        NuevoRepuesto.Descripcion   := 'Cable de plancha aurora';	
        NuevoRepuesto.Cantidad  := 100;
        }
        
        RepuestoTMP := BuscarRepuesto(NuevoRepuesto);
        Writeln('---------------------------------');
        Writeln('Codigo :',RepuestoTMP.Codigo);
        Writeln('Descripcion :',RepuestoTMP.Descripcion);
        Writeln('Cantidad Disponible :',RepuestoTMP.Cantidad);
        Writeln('---------------------------------');        

End;

Begin    
    ClrScr;
    Writeln('--------Busqueda de repuestos----------');
    MostrarResultadosDeBusqueda();
    Readln;
End.
